home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / mebbs / logmv086.lha / logrhythm < prev    next >
Text File  |  1994-05-27  |  19KB  |  607 lines
  1. /*   LOG-A-RHYTHM  */
  2.  
  3. signal on ERROR
  4. parse arg LineNumber
  5.  
  6. DoorName = "logrhythm"
  7.  
  8. if( ~show( 'l', "mebbsarexx.library" ) )then do
  9.    say "Opening mebbsarexx.library"
  10.     if( ~addlib( "mebbsarexx.library", 0, -30, 0 ) )then do
  11.       say "Could not open library"
  12.       exit 10
  13.    end
  14. end
  15.  
  16. call GetVar DoorName,LineNumber,1
  17. username=result
  18.  
  19. bluey = ""
  20. vioBLAC = ""
  21. yellblac = ""
  22. cyan = ""
  23. yell = ""
  24. blu  = ""
  25. red  = ""
  26. grn  = ""
  27. pur  = ""
  28. white = ""
  29. ansireset = ""
  30. fname2  = "doors:log/logmain.gr1"
  31. n=0
  32. count=0
  33. oi=0
  34. call Message DoorName,LineNumber,"Please WAIT "||username||" I am copying vital logs to memory",1
  35.  
  36. address command 'Copy mebbsnet:call.log RAM:'
  37. address command 'Copy mebbsnet:download.log ram:'
  38. address command 'Copy mebbsnet:upload.log ram:'
  39.  
  40. Mainmenu:
  41. do forever
  42.  
  43. call ReadFile DoorName,LineNumber,fname2
  44.  
  45. call HotKey DoorName,LineNumber, "Please Choose "|| username || " >"
  46. mainmenu=result
  47.  
  48. if mainmenu = '1' then call Callmenu
  49.   else if mainmenu = '2' then call uploadlog
  50.   else if mainmenu = '3' then call downloadlog
  51.   else if mainmenu = '4' then call about
  52.   else if mainmenu = '5' then call SYSOP
  53.   ELSE IF MAINMENU = 'Q' | MAINMENU = 'q' then call end_it
  54. end
  55.  
  56.  
  57. CallMenu:
  58. do forever
  59. call Message DoorName,LineNumber,ansireset" ",1
  60. call Message DoorName,LineNumber,"                    CALLER UTILITY By Jon Witty (c)",1
  61. call Message DoorName,LineNumber,"                    -------------------------------",1
  62. call Message DoorName,LineNumber,"",1
  63. call Message DoorName,LineNumber,"        "grn"["yell"1"grn"]"cyan" - List In Reverse Order - Latest First.        ",1
  64. call Message DoorName,LineNumber,"",1
  65. call Message DoorName,LineNumber,"        "grn"["yell"2"grn"]"cyan" - List In Forward Order - Earliest First.      ",1
  66. call Message DoorName,LineNumber,"",1
  67. call Message DoorName,LineNumber,"        "grn"["yell"3"grn"]"cyan" - Find a Name and List Calls Made By That User.",1
  68. call Message DoorName,LineNumber,"",1
  69. call Message DoorName,LineNumber,"        "grn"["yell"4"grn"]"cyan" - List Number Of Calls on Specified Date.      ",1
  70. call Message DoorName,LineNumber,"",1
  71. call Message DoorName,LineNumber,"        "grn"["yell"Q"grn"]"cyan" - Quit the Log-A-Rhythm.                       ",1
  72. call Message DoorName,LineNumber,"",1
  73. call Message DoorName,LineNumber,"        "grn"["yell"B"grn"]"cyan" - Back to Log-A-Rhythm Main Menu               ",1
  74. call Message DoorName,LineNumber,"",1
  75.  
  76. call HotKey DoorName,LineNumber,"Please Choose "|| username ||"> "
  77. Callmenuz=result
  78.  
  79. if callmenuz = '1' then call listrev
  80.   else if callmenuz = '2' then call forrev
  81.   else if callmenuz = 'Q' | callmenuz = 'q' then call end_it
  82.   else if callmenuz = '3' then call searchname
  83.   else if callmenuz = '4' then call dateroute
  84.   else if callmenuz = 'B' | callmenuz = 'b' then call mainmenu
  85.   else call Message DoorName,LineNumber,"Invalid Input - You can't try again- You wally",1
  86. end
  87.  
  88. /*-------------------------------*/
  89. /* List callers in reverse order */
  90. /*-------------------------------*/
  91.  
  92. LISTREV:
  93. filename='ram:call.log'
  94. call Message DoorName,LineNumber,"",1
  95. call Message DoorName,LineNumber," -------------------------------------------------------------------------------",1
  96. call Message DoorName,LineNumber,"                   CALLER LIST IN REVERSE ORDER - LATEST FIRST                ",1
  97. call Message DoorName,LineNumber,"-------------------------------------------------------------------------------",1
  98. call Message DoorName,LineNumber,"",1
  99. call Prompt DoorName,LineNumber,bluey'Number of callers to display >'||ansireset||" ",5
  100. number = result
  101. call Message DoorName,LineNumber,"",1
  102. call Message DoorName,LineNumber,yell"Please WAIT - Major Sorting. SEARCHING 2000 RECORDS"||ansireset,1
  103. call Message DoorName,LineNumber,"",1
  104. call Open data,(filename), 'R'
  105. do until eof(data)
  106.   n=n+1
  107.   line.n=readln(data)
  108.   end
  109. call close(data)
  110.  
  111. count=0
  112. z=0
  113. do until count == number
  114. n=n-1
  115. z=z+1
  116. call Message DoorName,LineNumber,line.n,1
  117. if z= 22 then call loop
  118. count = count + 1
  119. end
  120. call Message DoorName,LineNumber,"",1
  121. call HotKey DoorName,LineNumber,bluey"Press any key"||username||ANSIRESET
  122. return
  123.  
  124. /*-------------------------------------------------------*/
  125. /*            List callers in forward order              */
  126. /*-------------------------------------------------------*/
  127. FORREV:
  128. filename='ram:call.log'
  129. call Message DoorName,LineNumber,"",1
  130. call Message DoorName,LineNumber," -------------------------------------------------------------------------------",1
  131. call Message DoorName,LineNumber,"                   CALLER LIST IN FORWARD ORDER - LATEST FIRST                ",1
  132. call Message DoorName,LineNumber,"-------------------------------------------------------------------------------",1
  133. call Message DoorName,LineNumber,"",1
  134. call prompt DoorName,LineNumber,bluey'Number of callers to Display > '||ansireset||" ",5
  135. number = result
  136. call Message DoorName,LineNumber,"",1
  137. call Open data,(filename), 'R'
  138. n=0
  139. z=0
  140. do until n==number
  141.   n=n+1
  142.   z=z+1
  143.   line.n=readln(data)
  144. call Message DoorName,LineNumber,line.n,1  
  145. if z= 22 then call loop
  146. end
  147. call close(data)
  148. call HotKey DoorName,LineNumber,BLUEY"Press any key "||username||ANSIRESET
  149. return
  150.  
  151. /*----------------------------------------------------------------
  152.                            Upload Log
  153. ==================================================================*/
  154. UPLOADLOG:
  155. count=0
  156. y=0
  157. z=0
  158. filename ='ram:upload.log'
  159. call Message DoorName,LineNumber,"",1
  160. call Message DoorName,LineNumber," -------------------------------------------------------------------------------",1
  161. call Message DoorName,LineNumber,"                         LIST OF UPLOADS - LATEST FIRST                       ",1
  162. call Message DoorName,LineNumber,"-------------------------------------------------------------------------------",1
  163. call Message DoorName,LineNumber,"",1
  164. call Prompt DoorName,LineNumber,bluey'Enter number of Files to display >'||ANsireset||" ",5
  165. numberz = result
  166. call Message DoorName,LineNumber,"",1
  167. call Message DoorName,LineNumber,yell"Please Wait a while. SORTING 2000 RECORDS.",1
  168.  
  169. call Open datag,(filename), 'R'
  170. do until eof(datag)
  171.   y=y+1
  172.   line.y=readln(datag)
  173.   end
  174. call close(datag)
  175.  
  176. call Message DoorName,LineNumber," ",1
  177. count=0
  178. do until count == numberz
  179. y=y-1
  180. z=z+1
  181. call Message DoorName,LineNumber,line.y,1
  182. if z=22 then call loop3
  183. count = count + 1
  184. end
  185. call Message DoorName,LineNumber, "",1
  186. call HotKey DoorName,LineNumber,bluey"Press any key"ansireset
  187. return
  188.  
  189. /*----------------------------------------------------------------
  190.                            Download Log
  191. ==================================================================*/
  192. DOWNLOADLOG:
  193. v=0
  194. count=0
  195. z=0
  196. filename ='ram:download.log'
  197. call Message DoorName,LineNumber,"",1
  198. call Message DoorName,LineNumber," -------------------------------------------------------------------------------",1
  199. call Message DoorName,LineNumber,"                         LIST OF DOWNLOADS - LATEST FIRST                     ",1
  200. call Message DoorName,LineNumber,"-------------------------------------------------------------------------------",1
  201. call Message DoorName,LineNumber,"",1
  202. call Prompt DoorName,LineNumber,bluey'Enter number of Files to display >'||ANsireset||" ",5
  203. numbera = result
  204. call Message DoorName,LineNumber,"",1
  205. call Message DoorName,LineNumber,yell"Please Wait a while. SORTING 2000 RECORDS.",1
  206.  
  207. call Open datah,(filename), 'R'
  208. do until eof(datah)
  209.   v=v+1
  210.   line.v=readln(datah)
  211.   end
  212. call close(datah)
  213.  
  214. call Message DoorName,LineNumber," ",1
  215. count=0
  216. do until count == numbera
  217. v=v-1
  218. z=z+1
  219. call Message DoorName,LineNumber,line.v,1
  220. if z= 22 then call loop3
  221. count = count + 1
  222. end
  223. call HotKey DoorName,LineNumber,"Hit a key"
  224. return
  225.  
  226. /*-------------------------------*/
  227. /*         Search Name           */
  228. /*-------------------------------*/
  229.  
  230. SEARCHNAME:
  231. n=0
  232. filename = 'ram:call.log'
  233. call Message DoorName,LineNumber,"",1
  234. call Message DoorName,LineNumber," -------------------------------------------------------------------------------",1
  235. call Message DoorName,LineNumber,"                       CALLER LIST - SEARCH BY FULL NAME                      ",1
  236. call Message DoorName,LineNumber,"-------------------------------------------------------------------------------",1
  237. call Message DoorName,LineNumber,"",1
  238.  
  239. call Prompt DoorName,LineNumber,Bluey"Enter "||yell||"FULL NAME"||bluey||" of personna list to display >"||ansireset||" ",20
  240. fullname=result
  241.  
  242. fullname=upper(fullname)
  243. call Message DoorName,LineNumber,"",1
  244. call Message DoorName,LineNumber,"",1
  245. call Message DoorName,LineNumber,yell"Please Wait a while. SEARCHING 2000 RECORDS..........."||ansireset,1
  246. call Message DoorName,LineNumber,"",1
  247. z=0
  248. call Open data,(filename), 'R'
  249. do until eof(data)
  250.   n=n+1
  251.   line.n=readln(data)
  252.   test=subword(line.n,8,2)
  253.   if test = fullname then call loop2
  254.   if test = fullname & z= 22 then call loop
  255.   end
  256. call close(data)
  257. call Message DoorName,LineNumber,"",1
  258. call HotKey DoorName,LineNumber, bluey"Press a key - If nothing on screen, then Data wasn't found"ansireset
  259. return
  260.  
  261. /*-------------------------------*/
  262. /*         Search DATE           */
  263. /*-------------------------------*/
  264.  
  265. DATEROUTE:
  266. n=0
  267. datef=0
  268. datad=0
  269. display=0
  270. display1=0
  271. month=0
  272. p=0
  273. z=0
  274. filename= 'ram:call.log'
  275.  
  276. call Message DoorName,LineNumber,"",1
  277. call Message DoorName,LineNumber," -------------------------------------------------------------------------------",1
  278. call Message DoorName,LineNumber,"                         CALLER LIST - SEARCH BY DATE                         ",1
  279. call Message DoorName,LineNumber,"-------------------------------------------------------------------------------",1
  280. call Message DoorName,LineNumber,"",1
  281.  
  282. call Prompt DoorName,LineNumber,Bluey"Enter MONTH (Must Be Three Letters Like :-Nov,Dec,etc..) >"||ansireset||" ",5
  283. month=result
  284.  
  285. month=upper(month)
  286. call Message DoorName,LineNumber,"",1
  287. call Prompt DoorName,LineNumber,bluey"Now Enter The DATE (1 - 31  (numeric))                 >>>"||ansireset||" ",4
  288. datef=result
  289.  
  290. call Message DoorName,LineNumber,"",1
  291. call Message DoorName,LineNumber,yell||"Please Wait a while. SEARCHING 2000 RECORDS.........."||ansireset,1
  292. call Open datad,(filename), 'R'
  293. do until eof(datad)
  294.   n=n+1
  295.   line.n=readln(datad)
  296.   line.n=upper(line.n)
  297.   display=substr(line.n,6,3)
  298.   display2=substr(line.n,11,2)
  299.   if datef = 1|datef=2|datef=3|datef=4|datef=5|datef=6|datef=7|datef=8|datef=9 then display2=substr(line.n,11,1)
  300.   if display=month & display2=datef then do
  301. call Message DoorName,LineNumber,line.n,1
  302.   z=z+1
  303.   if z= 22 then call loop
  304.   p=p+1
  305.   end
  306.   end
  307. call close(datad)
  308. call Message DoorName,LineNumber,"",1
  309. call Message DoorName,LineNumber,yell||"There Were "||p||" Calls on "||month||" "||datef||".",1
  310. call Message DoorName,LineNumber,"",1
  311. call HotKey DoorName,LineNumber,bluey"Press any key - If Nothing On Screen, Then Data Wasn't Found."ansireset
  312. return
  313.  
  314. LOOP:
  315. call Message DoorName,LineNumber,"",1
  316. call HotKey DoorName,LineNumber,bluey||"Continue List (Y/N)?"ansireset
  317. choose=upper(result)
  318. call Message DoorName,LineNumber,"",1
  319. call Message DoorName,LineNumber,"",1
  320. if choose = 'Y'then z=0
  321.  else if choose ~= 'Y' then call callmenu
  322. return
  323.  
  324. LOOP3:
  325. call Message DoorName,LineNumber,"",1
  326. call Message DoorName,LineNumber,bluey||"Continue List (Y/N)? "ansireset,1
  327. call HotKey DoorName,LineNumber,""
  328. choose=upper(result)
  329. call Message DoorName,LineNumber,"",1
  330. call Message DoorName,LineNumber,"",1
  331. if choose = 'Y'then z=0
  332.  else if choose ~= 'Y' then call mainmenu
  333. return
  334.  
  335. LOOP2:
  336. call Message DoorName,LineNumber,line.n,1
  337. z=z+1
  338. return
  339.  
  340. ABOUT:
  341. Z=0
  342. FILENAME = 'doors:log/abouttest3'
  343. call Open data3,(filename), 'R'
  344. do until eof(data3)
  345.   n=n+1
  346.   Z=Z+1
  347.   line.n=readln(data3)
  348.   IF Z =22 THEN CALL LOOP3
  349.   call Message DoorName,LineNumber,line.n,1
  350.   end
  351. call close(data3)
  352. call Prompt DoorName,LineNumber,"hit a key",4
  353. return
  354.  
  355.  
  356. SYSOP:
  357.  
  358. call Prompt DoorName,LineNumber,"Please Enter Password>",10
  359. choice=upper(result)
  360. FILENAME = 'DOORS:LOG/password.cfg'
  361. n=0
  362. call Open data4,(FILENAME), 'R'
  363. password=readln(data4)
  364. call close(data4)
  365. if choice ~= password then call Message DoorName,LineNumber,"Invalid Password>",1
  366. if choice ~= password then call mainmenu
  367. do forever
  368. call Message DoorName,LineNumber,ansireset" ",1
  369. call Message DoorName,LineNumber,"                    SYSOP LOG ANALYSIS  By Jon Witty (c)",1
  370. call Message DoorName,LineNumber,"                    ------------------------------------",1
  371. call Message DoorName,LineNumber,"",1
  372. call Message DoorName,LineNumber,"        "grn"["yell"1"grn"]"cyan" - List NEW USERS IN LOGS.        ",1
  373. call Message DoorName,LineNumber,"",1
  374. call Message DoorName,LineNumber,"        "grn"["yell"2"grn"]"cyan" - List INVALID DATA.      ",1
  375. call Message DoorName,LineNumber,"",1
  376. call Message DoorName,LineNumber,"        "grn"["yell"3"grn"]"cyan" - LIST MAILER calls.",1
  377. call Message DoorName,LineNumber,"",1
  378. call Message DoorName,LineNumber,"        "grn"["yell"4"grn"]"cyan" - DOORS USED.      ",1
  379. call Message DoorName,LineNumber,"",1
  380. call Message DoorName,LineNumber,"        "grn"["yell"Q"grn"]"cyan" - Quit the Log-A-Rhythm.                       ",1
  381. call Message DoorName,LineNumber,"",1
  382. call Message DoorName,LineNumber,"        "grn"["yell"B"grn"]"cyan" - Back to Log-A-Rhythm Main Menu               ",1
  383. call Message DoorName,LineNumber,"",1
  384. callmenuz=0
  385. call HotKey DoorName,LineNumber,"Please Choose "|| username ||"> "
  386. Callmenuz=result
  387.  
  388. call Message DoorName,LineNumber,callmenuz,1
  389. call Prompt DoorName,LineNumber,"",1
  390. marker = 0
  391.  
  392. if callmenuz = '1' then do
  393. marker = 1
  394. call newusers
  395. end
  396.   else if callmenuz = '2' then do
  397. marker = 2
  398. call newusers
  399. end
  400.   else if callmenuz = '3' then call Message DoorName,LineNumber,"Under development>",1
  401.   else if callmenuz = '4' then call Message DoorName,LineNumber,"Under development>",1
  402.  
  403.   else if callmenuz = 'B' | callmenuz = 'b' then call mainmenu
  404.   else if callmenuz = 'Q' | callmenuz = 'q' then call end_it
  405.   else call Message DoorName,LineNumber,"Invalid Input - You can't try again- You wally",1
  406. end
  407.  
  408.  
  409.  
  410. NEWUSERS:
  411. CLS = ' '
  412. filequest='mebbsnet:Newquest.response'
  413.  
  414. result = exists('mebbsnet:mebbsnet1.log')
  415. n=0
  416. if result = 1 then do
  417. call Prompt DoorName,LineNumber,||CLS||"Searching *** LINE ONE *** - Hit return to commence "||username,4
  418. filename = 'mebbsnet:mebbsnet1.log'
  419. if marker = 1 then call log
  420. if marker = 2 then call invalid
  421. call Message DoorName,LineNumber,"",1
  422. call Prompt DoorName,LineNumber,"HIT RETURN",4
  423.  
  424. end
  425.  
  426. result = exists('mebbsnet:mebbsnet2.log')
  427. n=0
  428. if result = 1 then do
  429. call Message DoorName,LineNumber,||CLS||"Searching *** LINE TWO ***",1
  430. filename = 'mebbsnet:mebbsnet2.log'
  431. if marker = 1 then call log
  432. if marker = 2 then call invalid
  433. call Message DoorName,LineNumber,"",1
  434. call HotKey DoorName,LineNumber,"HIT RETURN"
  435.  
  436. end
  437.  
  438. result = exists('mebbsnet:mebbsnet3.log')
  439. n=0
  440. if result = 1 then do
  441. call Message DoorName,LineNumber,||CLS||"Searching *** LINE THREE ***",1
  442. filename = 'mebbsnet:mebbsnet3.log'
  443. if marker = 1 then call log
  444. if marker = 2 then call invalid
  445. call Message DoorName,LineNumber,"",1
  446. call HotKey DoorName,LineNumber,"HIT RETURN"
  447.  
  448. end
  449.  
  450. result = exists('mebbsnet:mebbsnet4.log')
  451. n=0
  452. if result = 1 then do
  453. call Message DoorName,LineNumber,||CLS||"Searching *** LINE FOUR ***",1
  454. filename = 'mebbsnet:mebbsnet4.log'
  455. if marker = 1 then call log
  456. if marker = 2 then call invalid
  457. call Message DoorName,LineNumber,"",1
  458. call HotKey DoorName,LineNumber,"HIT RETURN"
  459.  
  460. end
  461.  
  462. result = exists('mebbsnet:mebbsnet5.log')
  463. n=0
  464. if result = 1 then do
  465. call Message DoorName,LineNumber,||CLS||"Searching *** LINE FIVE ***",1
  466. filename = 'mebbsnet:mebbsnet5.log'
  467. if marker = 1 then call log
  468. if marker = 2 then call invalid
  469. end
  470.  
  471. result = exists('mebbsnet:mebbsnet6.log')
  472. n=0
  473. if result = 1 then do
  474. call Message DoorName,LineNumber,||CLS||"Searching *** LINE SIX ***",1
  475. filename = 'mebbsnet:mebbsnet6.log'
  476. if marker = 1 then call log
  477. if marker = 2 then call invalid
  478. end
  479.  
  480. result = exists('mebbsnet:mebbsnet7.log')
  481. n=0
  482. if result = 1 then do
  483. call Message DoorName,LineNumber,||CLS||"Searching *** LINE SEVEN ***",1
  484. filename = 'mebbsnet:mebbsnet7.log'
  485. if marker = 1 then call log
  486. if marker = 2 then call invalid
  487. end
  488. call Message DoorName,LineNumber,"",1
  489.  
  490.  
  491. call mainmenu
  492.  
  493.  
  494.  
  495.  
  496. LOG:
  497.  
  498. call Open data,(filename), 'R'
  499.     do until eof(data)
  500.        n=n+1
  501.         line.n=readln(data)
  502.         test=subword(line.n,4,1) 
  503.         if test = "New" then call LOOP5
  504.         end
  505. call close(data)
  506.   return
  507.  
  508.  
  509.  
  510. LOOP5:
  511. well = 0
  512. newusername = subword(line.n,7,2)
  513.  
  514.     do until eof(data)
  515.           if test = "New" then do
  516.           call Message DoorName,LineNumber,||" ",1
  517.           call Message DoorName,LineNumber,||"                        NEW USER LOG EXTRACT ",1
  518.           call Message DoorName,LineNumber,||"                        ---------------------",1
  519.           call Message DoorName,LineNumber,||"",1
  520.           end
  521.           call Message DoorName,LineNumber,||""||line.n,1
  522.         n=n+1
  523.         line.n=readln(data)
  524.       test=subword(line.n,4,1)
  525.       if test = "Logged" | test = "Logoff" then call QUESTION
  526.           if well = 9 then return
  527.       end
  528. return
  529.  
  530. QUESTION:
  531. p=0
  532. newuser=substr(newusername,2,10)
  533. call Open data3,(filequest), 'R'
  534.  
  535.     do until eof(data3)
  536.       p=p+1
  537.       line.p=readln(data3)
  538.       z=0
  539.       test5 = substr(line.p,1,10) 
  540.       if upper(newuser)=upper(test5) then 
  541.         do until z = 7
  542.           if z = 0 then do
  543.                   call Message DoorName,LineNumber,||"",1
  544.                   call Message DoorName,LineNumber,||"                        NEW USER QUESTIONAIRE",1
  545.                   call Message DoorName,LineNumber,||"                        ---------------------",1
  546.                   call Message DoorName,LineNumber,||"",1
  547.                   END
  548.           call Message DoorName,LineNumber,line.p,1
  549.           p=p+1
  550.           line.p=readln(data3)
  551.           z=z+1
  552.       end
  553.           end
  554. call close(data3)
  555. well = 9
  556. call HotKey DoorName,LineNumber,||"Hit a key for next"
  557. return
  558.  
  559. call end_it
  560.  
  561. INVALID:
  562. call Message DoorName,LineNumber,||"                   THE AMAZING INVALID USERS LOG SEARCH",1
  563. call Message DoorName,LineNumber,||"                   ------------------------------------",1
  564. call Message DoorName,LineNumber,"",1
  565. call Open data,(filename), 'R'
  566.     do until eof(data)
  567.        n=n+1
  568.         line.n=readln(data)
  569.         test=subword(line.n,4,1) 
  570.         if test = "Invalid" then do
  571. call Message DoorName,LineNumber,line.n,1
  572. end
  573.         end
  574. call close(data)
  575.   return
  576.  
  577.  
  578.  
  579. /*-----------------------------------------------------------------------*/
  580. call end_it
  581.  
  582. IOERR:
  583. call Exit_Door DoorName,LineNumber
  584. exit 10
  585.  
  586.  
  587. ERROR:
  588. call Exit_Door DoorName,LineNumber
  589. exit 10
  590.  
  591. SYNTAX:
  592. call Exit_Door DoorName,LineNumber
  593. exit 10
  594.  
  595.  
  596. DROP:
  597. call Exit_Door DoorName,LineNumber
  598. exit 10
  599.  
  600. call Exit_Door DoorName,LineNumber
  601.  
  602. exit 0
  603.  
  604. end_it:
  605. call Exit_Door DoorName,LineNumber
  606.  
  607. exit 0